(read_filtered_event): Retry read_char after a buffer change.

diff --git a/src/lread.c b/src/lread.c
index d74febcf3396e43c60d504784153ce1d3e0efa01..32ee6885ac3413be96f24df09fc224a2efc119d7 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -216,6 +216,9 @@ read_filtered_event (no_switch_frame, ascii_required, error_nonascii)
  retry:
   val = read_char (0, 0, 0, Qnil, 0);
 
+  if (XTYPE (val) == Lisp_Buffer)
+    goto retry;
+
   /* switch-frame events are put off until after the next ASCII
      character.  This is better than signalling an error just because
      the last characters were typed to a separate minibuffer frame,